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; Detailed Current Edit History 


G to G truncation 


HISTORY 
ECLARATIONS 
THSGINT 

GINT_R4 JSB entry point 


MTH 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
'® ® 
*® ® 
*® ® 
°® ® 
* a 
*® ® 
se ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
ye ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ye THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:# TRANSFERRED. © 

® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
:* CORPORATION. * 
°* tt 
:f * 
*® ® 
*® ® 
® ® 
® ® 
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g FACILITY: MATH LIBRARY 
"ABSTRACT: 


This module contains routine MTHSGINT: 
Return truncated G floating argument. 


; VERSION: 1 
; HISTORY: 


; AUTHOR: 
Steven B. Lionel, 18-Jan-79: Version 1 


; ; MODIFIED BY: 
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led Current Edit History 6-SEP-19 MTHRTL.SRCJMTHGINT.MAR; 1 
-SBTTL HISTORY 3; Detailed Current Edit History 


Edit History for Version 1 of MTHS$GINT 


]- : - = Qcisinel. SBL 18-Jan-79 
88 entt point. JBS 16-AUG-1979 
1- - ma ise" eng ,* -R4 to reflect code that disables IV. 


1-004 - me peste of EMODG in MTH$ iNT. _ (sh yte be R2). 
lso improve the next two instruction JAW 26-Nov-19 d 


MTHSGINT TRUNCATION 16-SEP-1984 01:27:4 AX/VMS Macro V04-00 Page 
1-004 5 greeks 91:35:08 ve 4) 


MTHRTL.SRCJMTHGINT .MAR; 1 


63 .SBTTL DECLARATIONS 

64 ; 

65 : INCLUDE FILES: 

96 3 NONE 

Or 3 

°8 

$3 : EXTERNAL SYMBOLS: 

re 3 NONE 

te : 

75 : MACROS: 

6 SPSLDEF ; PSL macros 
i 

0 : PSECT DECLARATIONS: 

.PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 
4 : EQUATED SYMBOLS: 

é 3 NONE 

7 3 

89 : OWN STORAGE: 

30 : NONE 
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-SBTTL MTHSGINT G to G truncation 


34+ 
; FUNCTIONAL DESCRIPTION: 


too the argument with all zeroes to the right of the radix 
point. 


CALLING SEQUENCE: 
Truncation.wg.v = MTHS$GINT (arg.rg.r) 
INPUT PARAMETERS: 


The one orpapens is a G floating-point value 
and is call-by-reference. 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
Reserved Operand exception can occur. 


ENTRY MTHSGINT “M<> 
cred a4(AP), #0, #1, RO, RO ; RO/RI = irectten pers (org) 
SuBG RO, a4(AP). RO ; RO/R1 = integer_part(arg 
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p++ 
; FUNCTIONAL DESCRIPTION: 


Shag the argument with all zeroes to the right of the radix 
oint. 


; CALLING SEQUENCE: 
Truncation.wg.v = MTHSGINT_R4 (arg.rg.v) 
; INPUT PARAMETERS: 


The one ai is a G floating-point value 
and is call-by-value. 


IMPLICIT INPUTS: 

; NONE 

; OUTPUT PARAMETERS: 

; NONE 

; IMPLICIT OUTPUTS: 

; NONE 

: COMPLETION CODES: 

—— 

; SIDE EFFECTS: 

: Reserved Operand exception can occur. 
s 


THSGINT_R4:: ; Argument in RO/R1 
V PSL 
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54 OC MOVPSL R4 ; Save 
B9 BICPSW #PSLSM_IV ; Clear IV 
52 52 08 00 54FD Catt RO, #0, #1, R2, R2 ; R2/R3 = {rect {on_pars (arg) 
59 42FD SUBG R : RO/R1 = pheeger part(arg 
54 FFDF ef AA ICW  #AC<PSLSM_IV>, R4 ; Clear all but 10 in saved PSw 

4 3 BISPSW R4 ; Restore IV to original state 
SB ; Return to caller 
-END 


Page (2) 
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MTHSGINT - FLOATING TRUNCATION 16-SEP-1984 01:27:4 AX/VMS Macro v04-00 Pa 
Symbol table ats 7 94335205 MTHRTL.SRCJMTHGINT.MAR; 1 ” (8) 
MTHSGINT 0 00 RG 
MTHSGINT_RG Go9000"| RG 88 
PSLSM_IV 2 20 

pow wera nam acoames + 

! Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- «ABS. 00000000 0.) 0 (¢( 0.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS BAO O88 ( 8-3 1¢ 1.) NOPIC USR CON ABS LCL NOSHR- EXE RD WRT NOVEC BYTE 
_MTHSCODE ( 40.) 2¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 

foe wor momen nese ems weawee = + 
H Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization 32 0:00:00.07 0:00:00.55 
Connend processing 104 3: if §°9 80; 0:03.) 
Pass 113 :00:01.0 0:00:04.4 
Symbol table sort 0 0: 8: 3-2 0: 830.0 
Pass 44 0:00:00.4 0:00:01.67 
Symbol table output ¢ 0: _ 0.01 $298 90-8) 
Psect synopsis output 0:00:00.02 00:00: et, 
Cross-reference output 0 0:00:00.00 00:00:00.0 
Assembler run totals 300 00:00:02.18 00:00:09.88 


The working art Limit was 1050 pages. 

4025 bytes (8 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 41 non-local and 0 local symbols. 
source Lines were read in Pass 1, produc ing 135 object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


goeecwceceoceseseseeesecceco$} 


Macro Library name Macros defined 
“S255SDUAZB:(SYSLIBISTARLET.MLBs2 0 SS ON 
98 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRE SSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHGINT/OBJ=OBJ$:MTHGINT MSRCS:MTHGINT/UPDATE=(ENHS:MTHGINT) 


NT CORPORATION 
D PROPRIETARY 
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